inherited fmEditUchebKurs: TfmEditUchebKurs
  Left = 300
  Top = 285
  Width = 565
  Height = 222
  Caption = 'fmEditUchebKurs'
  Constraints.MinHeight = 222
  Constraints.MinWidth = 565
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 168
    Width = 557
  end
  inherited Panel1: TPanel
    Width = 557
    inherited BitBtn1: TBitBtn
      Left = 386
    end
    inherited BitBtn2: TBitBtn
      Left = 466
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 45
    Width = 557
    Height = 123
    Align = alClient
    TabOrder = 2
    DesignSize = (
      557
      123)
    object Label22: TLabel
      Left = 12
      Top = 17
      Width = 48
      Height = 13
      Caption = #1055#1088#1077#1076#1084#1077#1090':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 12
      Top = 41
      Width = 75
      Height = 13
      Caption = #1059#1095#1077#1073#1085#1099#1081' '#1082#1091#1088#1089':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 12
      Top = 65
      Width = 106
      Height = 13
      Caption = #1059#1095#1077#1073#1085#1099#1081' '#1082#1091#1088#1089' (ENG):'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object eFormLess: TcxButtonEdit
      Tag = 10
      Left = 128
      Top = 10
      Anchors = [akLeft, akTop, akRight]
      ParentFont = False
      Properties.Buttons = <
        item
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFF0FFFFFFFFFFFFFF000FFFFFFFFFFFF00000FFFFFFFFFF0000000F
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
        end>
      Properties.MaxLength = 0
      Properties.ReadOnly = True
      Properties.OnButtonClick = eFormLessPropertiesButtonClick
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.SkinName = ''
      Style.Shadow = False
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 0
      Width = 413
    end
    object cxDBTextEdit1: TcxDBTextEdit
      Left = 128
      Top = 37
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'CUCHEBKURS'
      DataBinding.DataSource = dsUchebKurs
      TabOrder = 1
      Width = 413
    end
    object cxDBTextEdit2: TcxDBTextEdit
      Left = 128
      Top = 61
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'CUCHEBKURS_ENG'
      DataBinding.DataSource = dsUchebKurs
      TabOrder = 2
      Width = 413
    end
  end
  object dsUchebKurs: TDataSource
    DataSet = qUchebKurs
    Left = 424
    Top = 56
  end
  object qUchebKurs: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'select uk.*, sd.sdname'
      'from UchebKurs uk'
      '    left join sys_dic sd on sd.sdid=uk.idpredmet'
      'where uk.uisdelete is null and uk.iduchebkurs=:iduchebkurs')
    UpdateObject = quUchebKurs
    GeneratorField.Field = 'SDID'
    Left = 464
    Top = 56
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'iduchebkurs'
        ParamType = ptUnknown
      end>
    object qUchebKursIDUCHEBKURS: TIntegerField
      FieldName = 'IDUCHEBKURS'
      Origin = '"UCHEBKURS"."IDUCHEBKURS"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qUchebKursIDPREDMET: TIntegerField
      FieldName = 'IDPREDMET'
      Origin = '"UCHEBKURS"."IDPREDMET"'
    end
    object qUchebKursCUCHEBKURS: TIBStringField
      FieldName = 'CUCHEBKURS'
      Origin = '"UCHEBKURS"."CUCHEBKURS"'
      Size = 255
    end
    object qUchebKursCUCHEBKURS_ENG: TIBStringField
      FieldName = 'CUCHEBKURS_ENG'
      Origin = '"UCHEBKURS"."CUCHEBKURS_ENG"'
      Size = 255
    end
    object qUchebKursUTIMEENTER: TDateTimeField
      FieldName = 'UTIMEENTER'
      Origin = '"UCHEBKURS"."UTIMEENTER"'
    end
    object qUchebKursUTIMEEDIT: TDateTimeField
      FieldName = 'UTIMEEDIT'
      Origin = '"UCHEBKURS"."UTIMEEDIT"'
    end
    object qUchebKursUUSERENTER: TIBStringField
      FieldName = 'UUSERENTER'
      Origin = '"UCHEBKURS"."UUSERENTER"'
      Size = 80
    end
    object qUchebKursUUSEREDIT: TIBStringField
      FieldName = 'UUSEREDIT'
      Origin = '"UCHEBKURS"."UUSEREDIT"'
      Size = 80
    end
    object qUchebKursUISDELETE: TIntegerField
      FieldName = 'UISDELETE'
      Origin = '"UCHEBKURS"."UISDELETE"'
    end
    object qUchebKursSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
  end
  object quUchebKurs: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  IDUCHEBKURS,'
      '  IDPREDMET,'
      '  CUCHEBKURS,'
      '  CUCHEBKURS_ENG,'
      '  UTIMEENTER,'
      '  UTIMEEDIT,'
      '  UUSERENTER,'
      '  UUSEREDIT,'
      '  UISDELETE,'
      '  SDNAME'
      'from UchebKurs '
      'where'
      '  IDUCHEBKURS = :IDUCHEBKURS')
    ModifySQL.Strings = (
      'update UchebKurs'
      'set'
      '  CUCHEBKURS = :CUCHEBKURS,'
      '  CUCHEBKURS_ENG = :CUCHEBKURS_ENG,'
      '  IDPREDMET = :IDPREDMET,'
      '  IDUCHEBKURS = :IDUCHEBKURS'
      'where'
      '  IDUCHEBKURS = :OLD_IDUCHEBKURS')
    InsertSQL.Strings = (
      'insert into UchebKurs'
      '  (CUCHEBKURS, CUCHEBKURS_ENG, IDPREDMET, IDUCHEBKURS)'
      'values'
      '  (:CUCHEBKURS, :CUCHEBKURS_ENG, :IDPREDMET, :IDUCHEBKURS)')
    DeleteSQL.Strings = (
      'delete from UchebKurs'
      'where'
      '  IDUCHEBKURS = :OLD_IDUCHEBKURS')
    Left = 496
    Top = 56
  end
end
